www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admindown\D_chk_add_acticle.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file=inc_lanmu_bl.asp-->


<%
AJAXshowLoader()


%>



	<%
biao="[ND_down_class]"
biao2="[ND_down]"
sys_content_type=trim(request("sys_content_type"))





set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),1)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if


Function ChkNumeric(CHECK_ID)
		IF CHECK_ID = "1" or CHECK_ID =1 Then
			ChkNumeric = "1"
		Else
			ChkNumeric = "0"
		End If
		
		if CHECK_ID ="" then
		
		ChkNumeric = "0"
		end if
		
	End Function

Function ChkFormStr(ByVal str)
		Dim fString
		fString = str
		If IsNull(fString) Then
			ChkFormStr = ""
			Exit Function
		End If
		fString = Replace(fString, "'", "&#39;")
		fString = Replace(fString, Chr(34), "&quot;")
		fString = Replace(fString, Chr(13), "")
		fString = Replace(fString, Chr(10), "")
		fString = Replace(fString, Chr(9), "")
		fString = Replace(fString, ">", "&gt;")
		fString = Replace(fString, "<", "&lt;")
		fString = Replace(fString, "&nbsp;", " ")
		ChkFormStr = fString
	End Function


 Function Formatime(ByVal datime)
	datime = Trim(Replace(Trim(datime), vbNewLine, ""))
	If Not IsDate(datime) Then
		Formatime = Now()
		Exit Function
	End If
	If Len(datime) < 11 Then
		Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
	Else
		Formatime = CDate(datime)
	End If
	Exit Function
End Function







if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if



if sys_content_type="" then 

%>
<script language="javascript">
alert("url参数sys_content_type不能为空");
history.go(-1);

</script>

<%

response.end
end if
err1=0

if request("classid")="no" then
err1=1


%>
<script language="javascript">
alert("请先选择分类");
history.go(-1);

</script>

<%

response.end
end if


if request("title")="" then
err1=1


%>
<script language="javascript">
alert("请填写 软件名称");
history.go(-1);

</script>

<%

response.end
end if












if Not IsNumeric(Request("AllHits")) then
err1=1


%>
<script language="javascript">
alert("初始点击数请输入整数");
history.go(-1);

</script>

<%

response.end
end if






if Not IsNumeric(Request("dings")) then
err1=1


%>
<script language="javascript">
alert("被顶次数 请输入整数");
history.go(-1);

</script>

<%

response.end
end if













if err1=0 then





set rs441=server.CreateObject("adodb.recordset")
rs441.open "select * from "&biao&" where id="&request("classid"),conn,1,3
if rs441("is_link_class")="1" then


%>
<script language="javascript">
alert("该分类为外部连接，无法添加文章");
history.go(-1);

</script>

<%
response.end

else

	isTop = ChkNumeric(Request.Form("isTop"))
	isBest = ChkNumeric(Request.Form("isBest"))
	isForbid = ChkNumeric(Request.Form("Forbidac"))
	isAccept = ChkNumeric(Request.Form("issh"))
	
	

set rs44=server.CreateObject("adodb.recordset")
rs44.open "select * from "&biao2&"",conn,1,3
rs44.addnew


rs44("sys_content_type")=sys_content_type
rs44("title")=request("title")
rs44("sub_title")=request("subtitle")
rs44("classid")=request("classid")
rs44("SpecialID")=request("spcid")
rs44("titleColor")=request("ColorMode")
rs44("titleFont")=request("FontMode")
rs44("index_page_pic")=Request("ImageUrl")
rs44("content")=Request("Content")
rs44("is_outlink")=Request("isoutLink")
rs44("outlink")=Request("TurnLinkUrl")
rs44("Author_nick")=Request("Author")
'rs44("is_new")=
rs44("is_tuijian")=isBest
rs44("isTop")=isTop
rs44("Hits")=CLng(Request.Form("AllHits"))
rs44("DayHits")=CLng(Request.Form("AllHits"))
rs44("MonthHits")=CLng(Request.Form("AllHits"))
rs44("HitsTime")=date()
rs44("WriteTime")=Formatime(Trim(Request.Form("WriteTime")))
rs44("username")=uuuaa
'rs44("out_and_inner_img_list")=
'rs44("UploadImage_list")=
rs44("Uploadfile_list")=Trim(Request.Form("UploadFileList"))
rs44("is_shenhe")=isAccept
rs44("is_can_pinlun")=isForbid

rs44("xiangguan_down_keywords_list")=ChkFormStr(Request.Form("Related"))

rs44("xingji")=Trim(Request.Form("star"))
'rs44("update_time_input")=


rs44("liulang_dengji_group_id")=request("liulanggroup")

rs44("sver")=request("tver")

rs44("srun")=request("RunSystem")


rs44("soft_lx")=request("SoftType")

rs44("gongxiang_soft_or_mianfei")=request("impower")
rs44("soft_lang")=request("Languages")

rs44("soft_size")=request("SoftSize")
rs44("SizeUnit")=request("SizeUnit")
rs44("lianxi_fangshi")=request("Contact")
rs44("soft_guangfan_url")=request("Homepage")

rs44("dianshuo_to_look")=request("PointNum")
rs44("soft_money")=request("SoftPrice")

rs44("zip_pwd")=request("Decode")
rs44("if_have_chajian")=request("plugin")
rs44("reg_url")=request("regurl")




rs44("dings")=CLng(Request.Form("dings"))






params_str=""

for iit=1 to cint(request("params_len"))

if trim(request("c"&cstr(iit)))<>"" then

sss1=replace(replace(trim(request("c"&cstr(iit))),",","-xxnewdsofthtrd121a232_douhao-"),"|","-xxnewdsofthtrd121a232_shuhao-")
sss2=replace(replace(trim(request("s"&cstr(iit))),",", "-xxnewdsofthtrd121a232_douhao-" ),"|","-xxnewdsofthtrd121a232_shuhao-")

params_str=params_str&sss1&","&sss2&"|"
end if

next
if params_str<>"" then
params_str=left(params_str,len(params_str)-1) 

end if





rs44("down_url_list")=params_str
rs44("update_time_for_make_html")=now()

rs44.update

%>
<script language="javascript">
alert("添加成功");

//self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>";


self.location="D_htm_edited_cont.asp?sys_content_type=<%=sys_content_type%>";


</script>

<%

end if
end if
%>



<%
AJAXcloseLoader()
%>